home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64 / adventure 2.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  409 lines
  1. 100 print"[147] dies ist der zweite teil des"
  2. 105 print" adventures (levelcode: dumdidum)."
  3. 110 print" wer den ersten teil noch nicht geloest"
  4. 115 print" hat, sollte nun einen demo-charakter"
  5. 120 print" (niedrige werte) entwerfen."
  6. 125 input" neuen helden entwerfen (j/n)";a$
  7. 130 ifa$="j"thengosub2110:goto140
  8. 135 ifa$<>"n"goto125
  9. 140 input" intro ansehen (j/n)";a$
  10. 145 poke53280,0:poke53281,0
  11. 150 open4,8,4,"0:temple/ad2/name,s,r"
  12. 155 input#4,name$
  13. 160 close4
  14. 165 ifa$="n"goto220
  15. 170 gosub225
  16. 175 print"[147][156]     karamba soft proudly presents":gosub285
  17. 180 forx=1to1000:nextx
  18. 185 print"     the temple/great adventures ii":gosub285
  19. 190 forx=1to1000:nextx
  20. 195 gosub245
  21. 200 print"           second & last part":gosub285
  22. 205 forx=1to4
  23. 210 geta$:ifa$=""goto210
  24. 215 nextx
  25. 220 gosub265:print"[147]":waffe$="schwert":goto335
  26. 225 fort=49152to49203:readd:poket,d:next:sys49152:return
  27. 230 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,8,142,32,208,173,1
  28. 235 data220,201,255,208,12,232,230,2,234,234,224,17,208,237,76,13,192,173,17,208
  29. 240 data9,16,141,17,208,104,141,32,208,88,96,96
  30. 245 fort=49152to49201:readd:poket,d:next:sys49152:return
  31. 250 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,0,142,32,208,173,1
  32. 255 data220,201,255,208,10,232,234,234,224,16,208,239,76,13,192,173,17,208,9,16
  33. 260 data141,17,208,104,141,32,208,88,96,192
  34. 265 fort=49152to49205:readd:poket,d:next:sys49152:return
  35. 270 data120,173,32,208,72,173,17,208,41,239,141,17,208,162,0,142,32,208,173,1
  36. 275 data220,201,255,208,14,232,232,232,232,232,232,232,224,255,208,235,76,13,192
  37. 280 data173,17,208,9,16,141,17,208,104,141,32,208,88,96,9
  38. 285 k=54272
  39. 290 pokek+24,15
  40. 295 pokek+6,240
  41. 300 pokek+4,17
  42. 305 fora=1to10
  43. 310 forx=1to255step25
  44. 315 pokek+1,x
  45. 320 nextx
  46. 325 nexta
  47. 330 pokek+4,32:return
  48. 335 open3,8,3,"0:temple/ad2/char2,s,r"
  49. 340 input#3,m,g,ch,kh
  50. 345 input#3,s,ruestung$,c,n,heiltrank
  51. 350 close3
  52. 355 gosub705:input" <return>    ";a$:goto910
  53. 360 ifa$="oeffne"goto475
  54. 365 ifa$="nimm"goto475
  55. 370 ifa$="untersuche"goto475
  56. 375 ifa$="klopfe an"goto475
  57. 380 ifa$="benutze"goto475
  58. 385 ifa$="toete"goto480
  59. 390 ifa$="esse"goto685
  60. 395 ifa$="trinke"goto695
  61. 400 ifa$="help"goto485
  62. 405 ifa$="info"goto540
  63. 410 ifa$="possibilities"goto595
  64. 415 ifa$="colour"goto625
  65. 420 ifa$="punkte"goto495
  66. 425 ifa$="ruestung"goto500
  67. 430 ifa$="waffe"goto505
  68. 435 ifa$="warte"goto515
  69. 440 ifa$="look"goto525
  70. 445 ifa$="lebensenergie"goto510
  71. 450 ifa$="end"goto530
  72. 455 ifa$="lausche"goto670
  73. 460 ifa$="nahrung"goto675
  74. 465 ifa$="werte"goto705
  75. 470 goto535
  76. 475 print" auf diesen befehl muss ein hauptwort":print" folgen.":return
  77. 480 print" ist doch gar keiner da!":return
  78. 485 print" bitte jetzt mal selbst die kleinen"
  79. 490 print" grauen zellen anstrengen!":return
  80. 495 print" deine punktzahl:";s;"von 1000":return
  81. 500 print" deine ruestung:";ruestung$:return
  82. 505 print" deine waffe:";waffe$:return
  83. 510 print" deine lebensenergie:"c:return
  84. 515 print" du wartest eine weile,aber nichts ge-"
  85. 520 print" schieht.":return
  86. 525 print" du siehst nichts von interesse.":return
  87. 530 print" schlechter abtritt,echt.":goto730
  88. 535 print" unzureichende daten,";name$:return
  89. 540 print" der computer versteht ledigliche eine"
  90. 545 print" stark begrenzte anzahl von befehlen."
  91. 550 print" ein aus einem verb und einem hauptwort"
  92. 555 print" zusammengesetzter befehl kann also"
  93. 560 print" oft zu verstaendnisschwierigkeiten des"
  94. 565 print" computers fuehren.darum:"
  95. 570 print" - nur in possibilities aufgefuehrte"
  96. 575 print"   befehle benutzen."
  97. 580 print" - wenn ein hauptwort notwendig ist,nur"
  98. 585 print"   woerter des vorhergehenden textes"
  99. 590 print"   verwenden.viel spass,";name$:return
  100. 595 print" ich verstehe folgende befehle:"
  101. 600 print" oeffne,nimm,toete,untersuche,lausche,"
  102. 605 print" klopfe an,esse,trinke,benutze,warte,"
  103. 610 print" help,info,possibilities,colour,look,"
  104. 615 print" end,punkte,ruestung,waffe,lebens-"
  105. 620 print" energie,nahrung,werte":return
  106. 625 a=0:b=0:a1=0
  107. 630 print" f1/f3/f5 to change,e(x)it"
  108. 635 geta$:ifa$=""goto640
  109. 640 ifa$="x"thenreturn
  110. 645 ifa$=chr$(133)thena=a+1:poke53281,a:ifa=250thena=0
  111. 650 ifa$=chr$(134)thenb=b+1:poke53280,b:ifb=250thenb=0
  112. 655 ifa$=chr$(135)thena1=a1+1:poke646,a1:ifa1=250thena1=0
  113. 660 ifa$=chr$(135)thenprint"[145]";:goto630
  114. 665 goto635
  115. 670 print" du hoerst nichts ungewoehnliches.":return
  116. 675 print" dein vorrat/portionen:";n
  117. 680 print" heiltraenke:";heiltrank:return
  118. 685 ifn<1thenprint" du hast nichts mehr zu essen":return
  119. 690 n=n-1:print" du isst eine portion.":c=c+10:return
  120. 695 ifheiltrank<1thenprint" hier ist nichts zu trinken.":return
  121. 700 heiltrank=heiltrank-1:print" du trinkst deinen heiltrank.":c=c+5:return
  122. 705 print" deine werte,"name$
  123. 710 print" mut"m
  124. 715 print" geschicklichkeit"g
  125. 720 print" charisma"ch
  126. 725 print" klugheit"kh:print" deine lebensenergie"c:return
  127. 730 getx$:ifx$=""goto730
  128. 735 print"[147]"
  129. 740 print" das war das ende deines helden."
  130. 745 print" deine punktzahl:"s
  131. 750 print" deine ruestung:";ruestung$
  132. 755 print" deine waffe:";waffe$
  133. 760 print" essensvorrat:"n
  134. 765 print" heiltraenke:"heiltrank:c=0:gosub705
  135. 770 print" nicht traurig sein:the show must go"
  136. 775 print" on!":goto800
  137. 780 print" neues spiel?"
  138. 785 geta$:ifa$=""goto785
  139. 790 ifa$="j"goto335
  140. 795 end
  141. 800 rem adventure high scorre saver
  142. 805 open6,8,6,"0:temple/ad2/high,s,r"
  143. 810 cr$=chr$(13)
  144. 815 input#6,h1$,h2$,h3$,h1,h2,h3
  145. 820 close6
  146. 825 gosub855
  147. 830 geta$:ifa$=""goto830
  148. 835 print"[147] todays real heros:"
  149. 840 print"                   ";h1$,h1
  150. 845 print"                   "h2$,h2
  151. 850 print"                   "h3$,h3:goto885
  152. 855 ifh3>sthenreturn
  153. 860 h3=s:h3$=name$
  154. 865 ifh2>h3thenreturn
  155. 870 j1=h2:h2=h3:h3=j1:j1$=h2$:h2$=h3$:h3$=j1$
  156. 875 ifh1>h2thenreturn
  157. 880 j1=h1:h1=h2:h2=j1:j1$=h1$:h1$=h2$:h2$=j1$:return
  158. 885 open6,8,6,"@0:temple/ad2/high,s,w"
  159. 890 print#6,h1$;cr$;h2$;cr$;h3$;cr$;h1;cr$;h2;cr$;h3
  160. 895 close6
  161. 900 iffin=1thenend
  162. 905 goto780
  163. 910 print"[147][159] du befindest dich im tempelgarten."
  164. 915 poke53281,0
  165. 920 print" [176][192][192][192][192][192][192][192][192][192][192][174]"
  166. 925 print" [194]   [166][166][166][166]   [194]         der tempel"
  167. 930 print" [194]   [166]1[166][166]   [194]"
  168. 935 print" [194]   [166][166][166][166]   [194]             [206][205]       "
  169. 940 print" [194]   [166][166][166][166]   [194]            [206][206][205][205]      "
  170. 945 print" [194]          [194]           [206][164][192][192][164][205]     "
  171. 950 print" [194][166][166][166]     [166][166][194]           [194][194][194][194][194][194]     "
  172. 955 print" [194][166][166][166]  [214]  [166]3[194]       [194][166][166][166][166][166][166][166][166][166][166][166][166][194]     "
  173. 960 print" [194][166]5[166]     [166][166][194]       [194][166][166][166][166][166][213][201][166][166][166][166][166][194]     "
  174. 965 print" [194][166][166][166]  7[166]   [194]   [164][175][185][162][194][166][166][166][166][166][194][194][166][166][166][166][166][194][162][185][175][164] "
  175. 970 print" [173][192][192][192][203][192][192][202][192][192][192][189]  [206]                      [205]"
  176. 975 print"[159] von hier kannst du zum tempel (f1),"
  177. 980 print" zum gartenhaus (f3),zum vorrats-"
  178. 985 print" speicher (f5) oder zum waechter-"
  179. 990 print" haeuschen (f7)."
  180. 995 print"             tempel"
  181. 1000 print"             gartenhaus"
  182. 1005 print"             speicher"
  183. 1010 print"             waechterhaus"
  184. 1015 geta$:ifa$=""goto1015
  185. 1020 ifa$=chr$(133)goto1775
  186. 1025 ifa$=chr$(134)goto1085
  187. 1030 ifa$=chr$(135)goto1045
  188. 1035 ifa$=chr$(136)goto1240
  189. 1040 goto1015
  190. 1045 print"[145][145]             speicher[146]":forx=1to1000:nextx
  191. 1050 print"[147] der speicher war bestandteil des"
  192. 1055 print" ersten spielabschnitts und ist sowieso"
  193. 1060 print" nicht betretbar.vor der tuer wurden"
  194. 1065 print" unmengen von geraetschaften aufge-"
  195. 1070 print" tuermt, -paradoxerweise- um dich nicht"
  196. 1075 print" herauszulassen.suche eine andere"
  197. 1080 print" moeglchkeit.":inputa$:goto910
  198. 1085 print"[145][145][145]             gartenhaus[146]":forx=1to1000:nextx
  199. 1090 print"[147]"
  200. 1095 print" das gartenhaus erschien dir von aussen"
  201. 1100 print" viel groesser,als das nur so ein"
  202. 1105 print" kleiner raum platz hat.der raum ist"
  203. 1110 print" bis zum platzen vollgestopft mit"
  204. 1115 print" gartengeraeten.verlassen kannst du das"
  205. 1120 print" gartenhaus durch die tuere im westen."
  206. 1125 inputa$
  207. 1130 ifa$="w"goto910
  208. 1135 ifa$="untersuche gartengeraete"goto1160
  209. 1140 ifa$="benutze gartengeraete"goto1150
  210. 1145 gosub360:goto1095
  211. 1150 print" wir sind hier doch nicht bei green-"
  212. 1155 print" peace-rettet den rasen!":goto1095
  213. 1160 ift=7thenprint" keine neuen geraete!":goto1095
  214. 1165 t=7:print" neben einem berg von werkzeugen gibt"
  215. 1170 print" ein kleines schraenkchen,in dem"
  216. 1175 print" ein paar flaeschchen stehen.wirst du"
  217. 1180 print" sie dir genauer anschauen? (j/n)":inputa$:ifa$<>"j"goto1095
  218. 1185 print" du stellst fest,dass die meisten"
  219. 1190 print" flaschen leer sind.es sind zwei"
  220. 1195 print" flaschen uebrig.sie koennten von"
  221. 1200 print" nutzen sein,wenn es heiltraenke waeren"
  222. 1205 print" wirst du sie trinken? (j/n)":s=s+20:inputa$
  223. 1210 ifa$<>"j"thenprint" vernuenftig.":goto1095
  224. 1215 print" keuchend schluckst du das schmieroel"
  225. 1220 print" und das waschbenzin herunter.hier"
  226. 1225 print" einen heiltrank zu vermuten ist schon"
  227. 1230 print" sehr gewagt.":c=c-10:ifc<0thenc=1
  228. 1235 goto1095
  229. 1240 print"[145]             waechterhaus[146]":forx=1to1000:nextx
  230. 1245 ifu=1thenprint"[147]":goto1580
  231. 1250 u=1:print"[147] als du dich dem waechterhaeschen"
  232. 1255 print" naeherst,erscheint einmal mehr der"
  233. 1260 print" zwei meter hohe oger.'nicht schlecht,"
  234. 1265 print" kleiner.du hast dich behaupten koennen"
  235. 1270 print" aber jetzt ist die zeit gekommen ab-"
  236. 1275 print" schied von der welt zu nehmen.damit"
  237. 1280 print" es nicht heisst,ich haette einen aus-"
  238. 1285 print" gemergelten zwergen aufgerieben,biete"
  239. 1290 print" ich dir vor deinem letzten kampf"
  240. 1295 print" diesen lebenstrank.nimmst du sein an-"
  241. 1300 print" gebot an? (j/n)":inputa$:ifa$<>"j"goto1325
  242. 1305 print" dankend schluerfst du den trank mit"
  243. 1310 print" einem wachsamen auge auf den oger."
  244. 1315 print" nachdem du die flasche abgesetzt hast"
  245. 1320 print" wird dir schwindlig.":goto1340
  246. 1325 print" schnell springt der oger herbei und"
  247. 1330 print" verabreicht dir einen gepfefferten"
  248. 1335 print" schlag."
  249. 1340 print" du erwachst im waechterhaus.du liegst"
  250. 1345 print" auf einem tisch.der oger kehrt dir"
  251. 1350 print" gerade den ruecken zu.er steht am"
  252. 1355 print" kamin und schneidet kraeuter in einen"
  253. 1360 print" kessel.er hat noch nicht bemerkt,dass"
  254. 1365 print" deine lebensgeister bereits wieder"
  255. 1370 print" heimgekommen sind.(action eingeben)":inputa$
  256. 1375 ifa$="toete"goto1395
  257. 1380 print" der oger dreht sich dir zu.er ergreift"
  258. 1385 print" einen deiner fuesse und stopft dich in"
  259. 1390 print" den kochendheissen kessel.":goto730
  260. 1395 print" du springst auf und schlaegst den oger"
  261. 1400 print" mit dem schwert kraeftig in die seite."
  262. 1405 print" ueberrascht dreht sich der oger um und"
  263. 1410 print" greift dich an!"
  264. 1415 a=20
  265. 1420 ifa<0goto1445
  266. 1425 ifc<0thenprint" der oger hat dich erwischt.":goto730
  267. 1430 b=int(rnd(0)*5)
  268. 1435 d=int(rnd(0)*10)
  269. 1440 a=a-d:c=c-b:goto1420
  270. 1445 print" du hast es geschafft!der oger liegt"
  271. 1450 print" tot zu deinen fuessen.":s=s+100
  272. 1455 print" du bist in der kueche.hier steht ein"
  273. 1460 print" kuechentisch,eine anrichte und der"
  274. 1465 print" kessel am kamin.im norden liegt das"
  275. 1470 print" wohnzimmer.":inputa$
  276. 1475 ifa$="untersuche kessel"goto1510
  277. 1480 ifa$="untersuche kamin"goto1665
  278. 1485 ifa$="n"goto1580
  279. 1490 ifa$="untersuche kuechentisch"goto1545
  280. 1495 ifa$="oeffne schublade"goto1565
  281. 1500 ifa$="untersuche anrichte"goto1525
  282. 1505 gosub360:goto1455
  283. 1510 print" im kessel kocht wasser.darin schwimmen"
  284. 1515 print" huehneraugen,knochen und kleine"
  285. 1520 print" spinnen.angeekelt wendest du dich ab.":goto1455
  286. 1525 print" hier liegen einige kraeuter die essbar"
  287. 1530 print" scheinen.hungrig stopfst du sie in"
  288. 1535 print" dich hinein.deine lebensenergie steigt"
  289. 1540 print" auf 80.":c=80:goto1455
  290. 1545 print" auf dem tisch liegt ein buch ueber"
  291. 1550 print" menschenkeulchen und andere "
  292. 1555 print" spezialitaeten des hauses.der tisch"
  293. 1560 print" besitzt eine schublade.":goto1455
  294. 1565 ifv=1thenprint" sie klemmt.":goto1455
  295. 1570 print" in der schublade liegt eine geldboerse":v=1:s$="schluesselbund"
  296. 1575 print" und ein schluesselbund.du nimmst alles  mit.":s=s+10:inputa$:goto1455
  297. 1580 print" du betretest das wohnzimmer des wach-"
  298. 1585 print" gebaeudes.hier befindet sich eine"
  299. 1590 print" sitzecke und ein grosser schrank.aus-"
  300. 1595 print" gaenge finden sich im sueden zur"
  301. 1600 print" kueche und im westen ins freie.":inputa$
  302. 1605 ifa$="oeffne schrank"goto1635
  303. 1610 ifa$="untersuche schrank"goto1635
  304. 1615 ifa$="untersuche sitzecke"goto1645
  305. 1620 ifa$="oeffne polster"goto1655
  306. 1625 ifa$="w"goto910
  307. 1630 ifa$="s"goto1455
  308. 1635 print" der schrank enthaelt lediglich alte"
  309. 1640 print" kleidungsstuecke.":goto1580
  310. 1645 print" auffaellig sind die polster der sitz-"
  311. 1650 print" gruppe.":goto1580
  312. 1655 print" ok.sie enthalten allerdings nichts"
  313. 1660 print" besonderes.":goto1580
  314. 1665 print" an der linken seitenwand befindet sich"
  315. 1670 print" eine kleine oeffnung."
  316. 1675 ifs$<>"schluesselbund"goto1455
  317. 1680 print" instinktiv versuchst du,ob die"
  318. 1685 print" schluessel des ogers passen.einer"
  319. 1690 print" sitzt wie angegossen.die kaminwand"
  320. 1695 print" gibt nach und bringt einen geraeumigen"
  321. 1700 print" gang ans tageslicht.zoegernd folgst du"
  322. 1705 print" ihm.er verlaeuft in richtung ost und"
  323. 1710 print" knickt dann nach norden ab.du bewegst"
  324. 1715 print" dich in der tempelmauer!nach einer"
  325. 1720 print" weile gelangst du an eine oeffnung in"
  326. 1725 print" der westwand - geraeteschuppen teil 2"
  327. 1730 ifw=1thenprint" da du schon hierwarst,gehst du zurueck":goto1455
  328. 1735 w=1:inputa$
  329. 1740 print" hier ruht der richtige tempelschatz."
  330. 1745 print" riesige goldstatuetten und edelstein-"
  331. 1750 print" verzierte gewaender lagern hier.be-"
  332. 1755 print" geistert nimmst du dir die schoensten"
  333. 1760 print" und wertvollsten sachen,dann holst du"
  334. 1765 print" zum letzten und endgueltigen schlag":s=s+140
  335. 1770 print" gegen die monster aus.du kehrst um.":inputa$:goto1455
  336. 1775 print"[145][145][145][145]             tempel[146]":forx=1to1000:nextx:print"[147]"
  337. 1780 ifs$="schluesselbund"goto1795
  338. 1785 print" dir fehlt noch der schluessel zum tor"
  339. 1790 print" des tempelgebaeudes.":inputa$:goto910
  340. 1795 print" mit einem ungewoehnlich grossen,reich"
  341. 1800 print" verzierten schluessel des ogers"
  342. 1805 print" oeffnest du das maechtige tempeltor."
  343. 1810 print" du bist in der tempelhalle.am ende"
  344. 1815 print" eines saeulenganges sitzt ein mann auf"
  345. 1820 print" einem erhoehten trohn."
  346. 1825 print" 'ich habe dich erwartet",hallt es,"
  347. 1830 [153]" 'ich bin -wie du sicherlich schon"
  348. 1835 [153]" weisst- der fuehrer des schwarzen"
  349. 1840 [153]" kultes.' quietschend faellt das tor"
  350. 1845 [153]" hinter dir ins schloss. 'hier ist das"
  351. 1850 [153]" ende deines abenteuers,so oder so.'"
  352. 1855 [153]" grimmig laechelnd ergaenzt er:'besser"
  353. 1860 [153]" so.genug geredet!stirb!'"
  354. 1865 [153]" seinen haenden entwaechst ein schwert"
  355. 1870 [153]" aus flammen.pruefend kommt er auf dich"
  356. 1875 [153]" zu.":[133]a$
  357. 1880 a[178]m[170]g[170]kh[170]ch
  358. 1885 [153]" ein kampf um leben und tot beginnt!"
  359. 1890 [139]a[177]40[137]1910
  360. 1895 [153]" der magier schlaegt zu und fuegt dir"
  361. 1900 [153]" einen schaden von 20 punkten zu.":c[178]c[171]20:[141]2035
  362. 1905 [139]c[179]0[167][153]" tja.es ist so gelaufen.":[137]730
  363. 1910 [139]c[177][178]80[137]1925
  364. 1915 [153]" der magier schlaegt zu und trifft dich"
  365. 1920 [153]" toedlich!":[137]730
  366. 1925 a[178]60
  367. 1930 d[178][181]([187](0)[172]10)[170]1
  368. 1935 e[178][181]([187](0)[172]10)[170]1
  369. 1940 a[178]a[171]d
  370. 1945 [139]a[179]0[137]1965
  371. 1950 c[178]c[171]e
  372. 1955 [139]c[179]0[137]1915
  373. 1960 [137]1930
  374. 1965 [153]" du hast den magier erschlagen!"
  375. 1970 [153]" congratulations!you have made it to"
  376. 1975 [153]" sunshine.":[133]a$:[153]"loadprint gute arbeit,"name$
  377. 1980 [153]" hier nochmals deine werte:"
  378. 1985 [153]" - mut     "m
  379. 1990 [153]" - geschick"g
  380. 1995 [153]" - charisma"ch
  381. 2000 [153]" - klugheit"kh
  382. 2005 [153]" deine lebensenergie"c
  383. 2010 [153]" deine waffe war das magische schwert.":s[178]s[170]150
  384. 2015 [153]" du hattest eine lederruestung."
  385. 2020 [153]" nahrung"n
  386. 2025 [153]" heiltraenke"heiltrank
  387. 2030 [153]" punkt:"s;"von 1000":[137]2040
  388. 2035 [129]x[178]1[164]1000:[130]x:[142]
  389. 2040 [133]"";a$
  390. 2045 [153]"loaddef (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  391. 2050 [153]" peekas you open the door to the temple  peek"
  392. 2055 [153]" peekarea a lot of people from the town  peek"
  393. 2060 [153]" peekarrive cheering because of your     peek"
  394. 2065 [153]" peeksuccessful quest.the temple soon waspeek"
  395. 2070 [153]" peeka nice place to meet again.moreover,peek"
  396. 2075 [153]" peekthere was a party the next day.but  peek"
  397. 2080 [153]" peekthen the time has come for you to   peek"
  398. 2085 [153]" peekleave and find new adventures,but   peek"
  399. 2090 [153]" peekyou enjoy it - at least,i hope so.  peek"
  400. 2095 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  401. 2100 [161]a$:[139]a$[178]""[137]2100
  402. 2105 fin[178]1:[137]800
  403. 2110 cr$[178][199](13)
  404. 2115 [159]3,8,3,"@0:temple/ad2/char2,s,w"
  405. 2120 [152]3,8;cr$;8;cr$;8;cr$;8
  406. 2125 [152]3,0;cr$;"normale kleidung";cr$;40;cr$;0;cr$;0
  407. 2130 [160]3
  408. 2135 [142]
  409.